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-- DirectoryDefs.Mesa Edited by Sandman on May 19, 1977 12:20 PM 

DIRECTORY 

AltoFileDefs: FROM "altof iledefs". 
StreamDefs: FROM "streamdef s" ; 

DEFINITIONS FROM StreamDefs, AltoFileDefs; 

DirectoryDefs: DEFINITIONS « BEGIN 

-- Signals 

BadFilename: SIGNAL [name: STRING]; 
BadDirectory: SIGNAL [name: STRING]; 

-- procedures 

EnumerateDirectory: PROCEDURE [proc: PROCEDURE [POINTER TO FP, STRING] RETURNS [BOOLEAN]]; 
DirectoryLookup: PROCEDURE [fp: POINTER TO FP, name: STRING, create: BOOLEAN] 

RETURNS [old: BOOLEAN]; 
DirectoryLookupFP: PROCEDURE [fp: POINTER TO FP. name: STRING] RETURNS [old: BOOLEAN]; 
DirectoryPurge: PROCEDURE [fp: POINTER TO FP. name: STRING] RETURNS [found: BOOLEAN]; 
DirectoryPurgeFP: PROCEDURE [fp: POINTER TO FP] RETURNS [found: BOOLEAN]; 

EnumerateEntries: PROCEDURE [dir: StreamHandl e, 

proc: PROCEDURE [Streamlndex, POINTER TO DV, STRING] RETURNS [BOOLEAN]] 
RETURNS [Streamlndex]; 

-- Filename Parsing (such as it is) 

ExpandFilename: PROCEDURE [name, filename: STRING]; 

END. 

-- stuff yet to be done: 

SetCurrentDir. CloseCurrentDir . SetWorkingDir , ParseFilename. 
VersionsKept , StripVersion. AppendVersion, SearchForVersion. 


